home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / INTERBASE2_0-1.DMS / in.adf / Install InterBase < prev    next >
Encoding:
Text File  |  1993-05-12  |  10.5 KB  |  391 lines
  1. ;================================================
  2. ; $VER: Install InterBase Pro DK V33.1 14.04.93)
  3. ;================================================
  4.  
  5. ;------------------
  6. ; Reset complete %
  7. ;------------------
  8. (complete 0)
  9.  
  10. ;-------------------------
  11. ; Set our path variables.
  12. ;-------------------------
  13. (set sourcepath  "InterBase:")
  14. (set sourcepath2 "InterBase 2:")
  15. (set @default-dest "SYS:")
  16.  
  17. ;-------------------------------------
  18. ; Variables to check for boot-device.
  19. ;-------------------------------------
  20. (set sys-space (getdiskspace "SYS:"))
  21. (set appname-space (getdiskspace (cat @app-name ":")))
  22.  
  23. ;============================================================================
  24. ; Danish Strings
  25. ;============================================================================
  26. (if (= @language "dansk")
  27. (
  28.  
  29. (set #askdestdir
  30. (cat "I hvilken skuffe ønsker De at installere " @app-name " ?"
  31. ))
  32.  
  33. (set #askdesthelp
  34. (cat "De skal nu vælge hvilken skuffe De ønsker at installere " @app-name " til."
  35.      " En skuffe ved navn " @app-name " vil automatisk blive oprettet under den "
  36.      "skuffe De angiver her.\n\n" @askdir-help
  37. ))
  38.  
  39. (set #installaborted
  40. (cat "Installering af " @app-name " afbrudt."
  41. ))
  42.  
  43. (set #destdirexists
  44. (cat "\n\n\n\n" @app-name " eksisterer allerede. Skal jeg afbryde installeringen ?"
  45. ))
  46.  
  47. (set #destdirexistshelp
  48. (cat @app-name " skuffen eksisterer allerede. De skal nu vælge om De vil installere oveni "
  49.      "den gamle version, eller om De vil afbryde installeringen, slette den gamle version, "
  50.      "og så vende tilbage og installere igen."
  51. ))
  52.  
  53. (set #exampledrawername
  54. (cat "Eksempler"
  55. ))
  56.  
  57. (set #nowcopying1
  58. (cat "Kopiering af " @app-name " og relaterede filer..."
  59. ))
  60.  
  61. (set #nowcopying1help
  62. (cat "Dette vil kopiere " @app-name " og relaterede til den valgte skuffe.\n\n" @copyfiles-help
  63. ))
  64.  
  65. (set #nowcopying2
  66. (cat "Kopiering af printer drivere..."
  67. ))
  68.  
  69. (set #nowcopying2help
  70. (cat "Dette vil kopiere printer drivere. Disse filer er printer drivere der supporterer "
  71.      "diverse printer typer. Disse filer gør det muligt at bruge forskellige printere "
  72.      "sammen med " @app-name ".\n\n" @copyfiles-help
  73. ))
  74.  
  75. (set #nowcopying3
  76. (cat "Kopiering af " #exampledrawername "..."
  77. ))
  78.  
  79. (set #nowcopying3help
  80. (cat "Dette vil kopiere demonstrations " #exampledrawername ". Disse " #exampledrawername
  81.      " demonstrerer nogle af " @app-name " muligheder som De kan lære fra.\n\n"
  82.      @copyfiles-help
  83. ))
  84.  
  85. (set #nowcopying4
  86. (cat "Kopiering af amigaguide.library..."
  87. ))
  88.  
  89. (set #nowcopying4help
  90. (cat "Dette vil kopiere amigaguide.library til Deres LIBS: skuffe. " @app-name
  91.      " kræver dette library for at kunne vise amigaguide on-line hjælp dokumenter.\n\n"
  92.      @copylib-help
  93. ))
  94.  
  95. (set #nowcopying5
  96. (cat "Kopiering af ARexx eksempler..."
  97. ))
  98.  
  99. (set #nowcopying5help
  100. (cat "Dette vil kopiere ARexx eksempler til destinations skuffen."
  101. ))
  102.  
  103. (set #nowcopying6
  104. (cat "Kopiering af req.library..."
  105. ))
  106.  
  107. (set #nowcopying6help
  108. (cat "Dette vil kopiere req.library til Deres LIBS: skuffe. Printer Manageren \"ISC\" "
  109.      "behøver dette bibliotek for at kunne lade Dem vælge filer til udskrivning.\n\n\n"
  110.       @copylib-help
  111. ))
  112.  
  113. (set #startupdest
  114. (cat "Hvor må jeg tilføje et " @app-name ": assignment? Brug \"HELP\" hvis De er i tvivl."
  115. ))
  116.  
  117. (set #startupdesthelp
  118. (cat @app-name " behøver en logisk assign ved navn " @app-name ": Denne assign er vigtig, "
  119.      "da den muliggør " @app-name " at finde sin opsætning. For at lave denne assign "
  120.      "automatisk, må De nu fortælle mig i hvilken fil jeg skal indsætte den.\n\n" @askfile-help
  121. ))
  122.  
  123. (set #installfinished
  124. (cat "\n! ADVARSEL ! ADVARSEL ! ADVARSEL ! ADVARSEL !\n\n"
  125.      "Installering afsluttet! Ligeså snart De forlader dette program, bliver Deres "
  126.      "maskinen >GENSTARTET/REBOOTED<. Men dette sker skal De hive " @app-name " disketten "
  127.      "ud af drevet, og vente på at Deres maskine genstartes. Så snart dette er sket, kan "
  128.      "De nu bruge " @app-name ". Hvis De ønsker at >UNDGÅ< at genstarte Deres maskine, skal "
  129.      "De trykke på >Abort Install< knappen."
  130. ))
  131.  
  132. (set #mustbootfromhd
  133. (cat "\n\n\nFejl: De skal starte fra Deres harddisk for at installere " @app-name "."
  134. ))
  135.  
  136. (set #copyarexx
  137. (cat "\n\n\nØnsker De at installere ARexx eksempler?"
  138. ))
  139.  
  140. (set #copyarexxhelp
  141. (cat "De skal her vælge om De vil installere ARexx eksempler til Deres harddisk. Disse "
  142.      "eksempler viser hvordan du bruger ARexx sammen med " @app-name "."
  143. ))
  144.  
  145. (set #insertdisk
  146. (cat "\n\n\n\nIndsæt venligst diskette "
  147. ))
  148.  
  149. (set #insertdiskhelp
  150. (cat "\n\n\n\nDe skal nu indsætte disketten ved navn "
  151. ))
  152.  
  153. ))
  154.  
  155. ;============================================================================
  156.  
  157. ;---------
  158. ; Say HI!
  159. ;---------
  160. ;(welcome)
  161.  
  162. ;-----------------------
  163. ; Recognize OS version.
  164. ;-----------------------
  165. (set osver (/ (getversion) 65535))
  166.  
  167. ;---------------------------------
  168. ; User *HAS* to boot from his HD!
  169. ;---------------------------------
  170. (if (= sys-space appname-space)
  171. (
  172. ;-> User booted from disk. This is *NOT* allowed!
  173.    (message #mustbootfromhd)
  174.    (abort #installaborted)
  175. ))
  176.  
  177. ;--------------------------------
  178. ; Ask for destination directory.
  179. ;--------------------------------
  180. (set @default-dest
  181.    (askdir (prompt #askdestdir)
  182.            (help   #askdesthelp)
  183.            (default @default-dest)
  184.    )
  185. )
  186.  
  187. ;-------------------------------------------------------
  188. ; Check that directory @app-name doesn't exist already.
  189. ;-------------------------------------------------------
  190. (set @default-dest (tackon @default-dest @app-name))
  191. (if (exists @default-dest)
  192.    (if (askbool (prompt #destdirexists)
  193.                 (help   #destdirexistshelp)
  194.                 (default 1)
  195.        )
  196.       (abort #installaborted)
  197.    )
  198. )
  199.  
  200. ;---------------------------------------------
  201. ; Creating directories in destination drawer.
  202. ;---------------------------------------------
  203. (makedir @default-dest (infos))
  204. (set temp (tackon @default-dest "Eksempler"))
  205. (makedir temp (infos))
  206.  
  207. (complete 10)
  208.  
  209. ;--------------------------------------
  210. ; Copying @app-name and related files.
  211. ;--------------------------------------
  212. (copyfiles (prompt  #nowcopying1)
  213.            (help    #nowcopying1help)
  214.            (source  sourcepath)
  215.            (dest    @default-dest)
  216.            (choices @app-name (cat @app-name ".info") "ISC" "ISC.info" (cat @app-name ".guide")
  217.                     (cat @app-name ".guide.info"))
  218.            (confirm "expert")
  219. )
  220.  
  221. (complete 30)
  222.  
  223. ;--------------------------
  224. ; Copying printer drivers.
  225. ;--------------------------
  226. (set temp1 (tackon  @default-dest "Printers"))
  227. (set temp2 (tackon  sourcepath "Printers"))
  228. (copyfiles (prompt  #nowcopying2)
  229.            (help    #nowcopying2help)
  230.            (source  temp2)
  231.            (dest    temp1)
  232.            (all)
  233.            (confirm "expert")
  234. )
  235.  
  236. (complete 40)
  237.  
  238. ;-----------------
  239. ; Ask for disk 2.
  240. ;-----------------
  241. (askdisk (prompt (cat #insertdisk sourcepath2))
  242.          (help   (cat #insertdiskhelp sourcepath2))
  243.          (dest   "InterBase 2")
  244. )
  245.  
  246. ;----------------------
  247. ; Copy arexx examples.
  248. ;----------------------
  249. (if (askbool (prompt  #copyarexx)
  250.              (help    #copyarexxhelp)
  251.              (default 0)
  252.     )
  253. (
  254.    (copyfiles (prompt  #nowcopying5)
  255.               (help    #nowcopying5help)
  256.               (source  (tackon sourcepath2 "ARexx"))
  257.               (dest    (tackon @default-dest "ARexx"))
  258.               (all)
  259.               (confirm "expert")
  260.    )
  261. ))
  262.  
  263. (complete 60)
  264.  
  265. ;--------------------
  266. ; Copying Examples/*
  267. ;--------------------
  268. (set temp1 (tackon  @default-dest #exampledrawername))
  269. (set temp2 (tackon  sourcepath2 #exampledrawername))
  270. (copyfiles (prompt  #nowcopying1)
  271.            (help    #nowcopying1help)
  272.            (source  temp2)
  273.            (dest    temp1)
  274.            (all)
  275.            (confirm "expert")
  276. )
  277.  
  278. (complete 80)
  279.  
  280. ;------------------------
  281. ; Copying PrinterConfig.
  282. ;------------------------
  283. (copyfiles (prompt  #nowcopying1)
  284.            (help    #nowcopying1help)
  285.            (source  sourcepath2)
  286.            (dest    @default-dest)
  287.            (choices "PrinterConfig" "PrinterConfig.info")
  288.            (confirm "expert")
  289. )
  290.  
  291. (complete 85)
  292.  
  293. ;-----------------
  294. ; Ask for disk 1.
  295. ;-----------------
  296. (askdisk (prompt (cat #insertdisk sourcepath))
  297.          (help   (cat #insertdiskhelp sourcepath))
  298.          (dest   @app-name)
  299. )
  300.  
  301. ;-----------------------------
  302. ; Copying amigaguide.library.
  303. ;-----------------------------
  304. (copylib (prompt #nowcopying4)
  305.          (help   #nowcopying4help)
  306.          (source (tackon sourcepath "Libs/amigaguide.library"))
  307.          (dest   "LIBS:")
  308.          (optional)
  309.          (confirm "average")
  310. )
  311.  
  312. (complete 95)
  313.  
  314. ;-----------------------------
  315. ; Copying req.library.
  316. ;-----------------------------
  317. (copylib (prompt #nowcopying6)
  318.          (help   #nowcopying6help)
  319.          (source (tackon sourcepath "Libs/req.library"))
  320.          (dest   "LIBS:")
  321.          (optional)
  322.          (confirm "average")
  323. )
  324.  
  325. (complete 95)
  326.  
  327. ;--------------------------------------------
  328. ; Make InterBase: assign to harddisk drawer.
  329. ;--------------------------------------------
  330. (makeassign "InterBase" @default-dest)
  331. (makeassign "InterBase 2" @default-dest)
  332.  
  333. ;-------------------------------------------
  334. ; Figuring out which file to put assign in.
  335. ;-------------------------------------------
  336. (set path (getassign "S"))
  337. (if (< osver 36)
  338. (
  339.    (set suggestedfile (tackon path "StartupII"))
  340. )
  341. (
  342.    (set suggestedfile (tackon path "User-Startup"))
  343. ))
  344.  
  345. ;------------------------------------------------------------------------------------
  346. ; Check OS version and append @app-name: assign to either StartupII or User-Startup.
  347. ;------------------------------------------------------------------------------------
  348. (set startup-dest
  349.    (askfile (prompt #startupdest)
  350.             (help   #startupdesthelp)
  351.             (default suggestedfile)
  352.    )
  353. )
  354. (set startup-path (pathonly startup-dest))
  355. (set startup-file (fileonly startup-dest))
  356. (set ramname (tackon "RAM:" startup-file))
  357.  
  358. (textfile (dest ramname)
  359.           (include startup-dest)
  360.           (append "\n;BEGIN " @app-name "\n"
  361.                      "Assign " @app-name ": " "\"" @default-dest "\"\n"
  362.                      "Assign \"" @app-name " 2:\" " "\"" @default-dest "\"\n"
  363.                     ";END " @app-name "\n")
  364. )
  365. (copyfiles (source "RAM:")
  366.            (dest startup-path)
  367.            (choices startup-file)
  368.            (nogauge)
  369. )
  370. (delete ramname)
  371.  
  372. ;------------------------
  373. ; Installation finished!
  374. ;------------------------
  375. (message #installfinished)
  376.  
  377. (complete 100)
  378.  
  379. ;---------
  380. ; Reboot!
  381. ;---------
  382. (run (tackon sourcepath "C/Reboot"))
  383.  
  384. ;------------------------------------------------------------------
  385. ; If something goes wrong the onerror below is called to clean-up.
  386. ;------------------------------------------------------------------
  387. (onerror
  388.    (delete @default-dest)
  389. )
  390.  
  391.